home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / Src / Ch5 / HiRes.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-04-05  |  19.7 KB  |  619 lines
  1. VERSION 5.00
  2. Begin VB.Form frmHiRes 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "HiRes"
  5.    ClientHeight    =   4920
  6.    ClientLeft      =   1035
  7.    ClientTop       =   1050
  8.    ClientWidth     =   5865
  9.    LinkTopic       =   "Form1"
  10.    PaletteMode     =   1  'UseZOrder
  11.    ScaleHeight     =   4920
  12.    ScaleWidth      =   5865
  13.    Begin VB.ComboBox Combo1 
  14.       BeginProperty Font 
  15.          Name            =   "Times New Roman"
  16.          Size            =   9
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   345
  24.       ItemData        =   "HiRes.frx":0000
  25.       Left            =   2400
  26.       List            =   "HiRes.frx":000D
  27.       TabIndex        =   4
  28.       Text            =   "Combo1"
  29.       Top             =   2400
  30.       Width           =   1575
  31.    End
  32.    Begin VB.CommandButton Command1 
  33.       Caption         =   "Wrapped Caption"
  34.       BeginProperty Font 
  35.          Name            =   "Times New Roman"
  36.          Size            =   9
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   615
  44.       Index           =   1
  45.       Left            =   3720
  46.       TabIndex        =   22
  47.       Top             =   3480
  48.       Width           =   975
  49.    End
  50.    Begin VB.CommandButton Command1 
  51.       Caption         =   "Button"
  52.       BeginProperty Font 
  53.          Name            =   "Times New Roman"
  54.          Size            =   9
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   615
  62.       Index           =   0
  63.       Left            =   2640
  64.       TabIndex        =   21
  65.       Top             =   3480
  66.       Width           =   855
  67.    End
  68.    Begin VB.Frame Frame4 
  69.       Caption         =   "Frame4"
  70.       BeginProperty Font 
  71.          Name            =   "Times New Roman"
  72.          Size            =   9
  73.          Charset         =   0
  74.          Weight          =   400
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   1215
  80.       Left            =   3120
  81.       TabIndex        =   18
  82.       Top             =   1320
  83.       Width           =   1575
  84.       Begin VB.OptionButton Option1 
  85.          Alignment       =   1  'Right Justify
  86.          Caption         =   "Option1"
  87.          BeginProperty Font 
  88.             Name            =   "Times New Roman"
  89.             Size            =   9
  90.             Charset         =   0
  91.             Weight          =   400
  92.             Underline       =   0   'False
  93.             Italic          =   0   'False
  94.             Strikethrough   =   0   'False
  95.          EndProperty
  96.          Height          =   255
  97.          Index           =   1
  98.          Left            =   240
  99.          TabIndex        =   20
  100.          Top             =   240
  101.          Value           =   -1  'True
  102.          Width           =   1215
  103.       End
  104.       Begin VB.OptionButton Option1 
  105.          Alignment       =   1  'Right Justify
  106.          Caption         =   "A long caption"
  107.          BeginProperty Font 
  108.             Name            =   "Times New Roman"
  109.             Size            =   9
  110.             Charset         =   0
  111.             Weight          =   400
  112.             Underline       =   0   'False
  113.             Italic          =   0   'False
  114.             Strikethrough   =   0   'False
  115.          EndProperty
  116.          Height          =   495
  117.          Index           =   3
  118.          Left            =   240
  119.          TabIndex        =   19
  120.          Top             =   600
  121.          Width           =   1215
  122.       End
  123.    End
  124.    Begin VB.Frame Frame3 
  125.       Caption         =   "Frame3"
  126.       BeginProperty Font 
  127.          Name            =   "Times New Roman"
  128.          Size            =   9
  129.          Charset         =   0
  130.          Weight          =   400
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       Height          =   1215
  136.       Left            =   3120
  137.       TabIndex        =   15
  138.       Top             =   0
  139.       Width           =   1575
  140.       Begin VB.OptionButton Option1 
  141.          Caption         =   "A long caption"
  142.          BeginProperty Font 
  143.             Name            =   "Times New Roman"
  144.             Size            =   9
  145.             Charset         =   0
  146.             Weight          =   400
  147.             Underline       =   0   'False
  148.             Italic          =   0   'False
  149.             Strikethrough   =   0   'False
  150.          EndProperty
  151.          Height          =   495
  152.          Index           =   0
  153.          Left            =   240
  154.          TabIndex        =   17
  155.          Top             =   600
  156.          Width           =   1215
  157.       End
  158.       Begin VB.OptionButton Option1 
  159.          Caption         =   "Option1"
  160.          BeginProperty Font 
  161.             Name            =   "Times New Roman"
  162.             Size            =   9
  163.             Charset         =   0
  164.             Weight          =   400
  165.             Underline       =   0   'False
  166.             Italic          =   0   'False
  167.             Strikethrough   =   0   'False
  168.          EndProperty
  169.          Height          =   255
  170.          Index           =   2
  171.          Left            =   240
  172.          TabIndex        =   16
  173.          Top             =   240
  174.          Value           =   -1  'True
  175.          Width           =   1215
  176.       End
  177.    End
  178.    Begin VB.Frame Frame2 
  179.       Caption         =   "Frame2"
  180.       BeginProperty Font 
  181.          Name            =   "Times New Roman"
  182.          Size            =   9
  183.          Charset         =   0
  184.          Weight          =   400
  185.          Underline       =   0   'False
  186.          Italic          =   0   'False
  187.          Strikethrough   =   0   'False
  188.       EndProperty
  189.       Height          =   1215
  190.       Left            =   1440
  191.       TabIndex        =   10
  192.       Top             =   1320
  193.       Width           =   1575
  194.       Begin VB.CheckBox Check1 
  195.          Alignment       =   1  'Right Justify
  196.          Caption         =   "Check1"
  197.          BeginProperty Font 
  198.             Name            =   "Times New Roman"
  199.             Size            =   9
  200.             Charset         =   0
  201.             Weight          =   400
  202.             Underline       =   0   'False
  203.             Italic          =   0   'False
  204.             Strikethrough   =   0   'False
  205.          EndProperty
  206.          Height          =   255
  207.          Index           =   0
  208.          Left            =   240
  209.          TabIndex        =   14
  210.          Top             =   240
  211.          Value           =   1  'Checked
  212.          Width           =   1215
  213.       End
  214.       Begin VB.CheckBox Check1 
  215.          Alignment       =   1  'Right Justify
  216.          Caption         =   "A long caption"
  217.          BeginProperty Font 
  218.             Name            =   "Times New Roman"
  219.             Size            =   9
  220.             Charset         =   0
  221.             Weight          =   400
  222.             Underline       =   0   'False
  223.             Italic          =   0   'False
  224.             Strikethrough   =   0   'False
  225.          EndProperty
  226.          Height          =   495
  227.          Index           =   3
  228.          Left            =   240
  229.          TabIndex        =   13
  230.          Top             =   600
  231.          Width           =   1215
  232.       End
  233.    End
  234.    Begin VB.TextBox Text1 
  235.       BeginProperty Font 
  236.          Name            =   "Times New Roman"
  237.          Size            =   9
  238.          Charset         =   0
  239.          Weight          =   400
  240.          Underline       =   0   'False
  241.          Italic          =   0   'False
  242.          Strikethrough   =   0   'False
  243.       EndProperty
  244.       Height          =   615
  245.       Index           =   5
  246.       Left            =   120
  247.       MultiLine       =   -1  'True
  248.       TabIndex        =   9
  249.       Text            =   "HiRes.frx":0028
  250.       Top             =   1560
  251.       Width           =   1215
  252.    End
  253.    Begin VB.TextBox Text1 
  254.       BeginProperty Font 
  255.          Name            =   "Times New Roman"
  256.          Size            =   9
  257.          Charset         =   0
  258.          Weight          =   400
  259.          Underline       =   0   'False
  260.          Italic          =   0   'False
  261.          Strikethrough   =   0   'False
  262.       EndProperty
  263.       Height          =   615
  264.       Index           =   4
  265.       Left            =   3120
  266.       MultiLine       =   -1  'True
  267.       ScrollBars      =   1  'Horizontal
  268.       TabIndex        =   8
  269.       Text            =   "HiRes.frx":003D
  270.       Top             =   2640
  271.       Width           =   1575
  272.    End
  273.    Begin VB.TextBox Text1 
  274.       Alignment       =   1  'Right Justify
  275.       BeginProperty Font 
  276.          Name            =   "Times New Roman"
  277.          Size            =   9
  278.          Charset         =   0
  279.          Weight          =   400
  280.          Underline       =   0   'False
  281.          Italic          =   0   'False
  282.          Strikethrough   =   0   'False
  283.       EndProperty
  284.       Height          =   615
  285.       Index           =   2
  286.       Left            =   120
  287.       MultiLine       =   -1  'True
  288.       TabIndex        =   7
  289.       Text            =   "HiRes.frx":006B
  290.       Top             =   2220
  291.       Width           =   1215
  292.    End
  293.    Begin VB.TextBox Text1 
  294.       BeginProperty Font 
  295.          Name            =   "Times New Roman"
  296.          Size            =   9
  297.          Charset         =   0
  298.          Weight          =   400
  299.          Underline       =   0   'False
  300.          Italic          =   0   'False
  301.          Strikethrough   =   0   'False
  302.       EndProperty
  303.       Height          =   615
  304.       Index           =   1
  305.       Left            =   120
  306.       MultiLine       =   -1  'True
  307.       TabIndex        =   6
  308.       Text            =   "HiRes.frx":0099
  309.       Top             =   2880
  310.       Width           =   1215
  311.    End
  312.    Begin VB.TextBox Text1 
  313.       BeginProperty Font 
  314.          Name            =   "Times New Roman"
  315.          Size            =   9
  316.          Charset         =   0
  317.          Weight          =   400
  318.          Underline       =   0   'False
  319.          Italic          =   0   'False
  320.          Strikethrough   =   0   'False
  321.       EndProperty
  322.       Height          =   330
  323.       Index           =   0
  324.       Left            =   120
  325.       TabIndex        =   2
  326.       Text            =   "The quick brown fox jumped over the lazy dog."
  327.       Top             =   1200
  328.       Width           =   1215
  329.    End
  330.    Begin VB.ListBox List1 
  331.       BeginProperty Font 
  332.          Name            =   "Times New Roman"
  333.          Size            =   9
  334.          Charset         =   0
  335.          Weight          =   400
  336.          Underline       =   0   'False
  337.          Italic          =   0   'False
  338.          Strikethrough   =   0   'False
  339.       EndProperty
  340.       Height          =   960
  341.       ItemData        =   "HiRes.frx":00C7
  342.       Left            =   120
  343.       List            =   "HiRes.frx":00EC
  344.       MultiSelect     =   1  'Simple
  345.       TabIndex        =   5
  346.       Top             =   120
  347.       Width           =   1215
  348.    End
  349.    Begin VB.Frame Frame1 
  350.       Caption         =   "Frame1"
  351.       BeginProperty Font 
  352.          Name            =   "Times New Roman"
  353.          Size            =   9
  354.          Charset         =   0
  355.          Weight          =   400
  356.          Underline       =   0   'False
  357.          Italic          =   0   'False
  358.          Strikethrough   =   0   'False
  359.       EndProperty
  360.       Height          =   1215
  361.       Left            =   1440
  362.       TabIndex        =   3
  363.       Top             =   0
  364.       Width           =   1575
  365.       Begin VB.CheckBox Check1 
  366.          Caption         =   "A long caption"
  367.          BeginProperty Font 
  368.             Name            =   "Times New Roman"
  369.             Size            =   9
  370.             Charset         =   0
  371.             Weight          =   400
  372.             Underline       =   0   'False
  373.             Italic          =   0   'False
  374.             Strikethrough   =   0   'False
  375.          EndProperty
  376.          Height          =   495
  377.          Index           =   1
  378.          Left            =   240
  379.          TabIndex        =   12
  380.          Top             =   600
  381.          Width           =   1215
  382.       End
  383.       Begin VB.CheckBox Check1 
  384.          Caption         =   "Check1"
  385.          BeginProperty Font 
  386.             Name            =   "Times New Roman"
  387.             Size            =   9
  388.             Charset         =   0
  389.             Weight          =   400
  390.             Underline       =   0   'False
  391.             Italic          =   0   'False
  392.             Strikethrough   =   0   'False
  393.          EndProperty
  394.          Height          =   255
  395.          Index           =   2
  396.          Left            =   240
  397.          TabIndex        =   11
  398.          Top             =   240
  399.          Value           =   1  'Checked
  400.          Width           =   1215
  401.       End
  402.    End
  403.    Begin VB.PictureBox Picture1 
  404.       AutoSize        =   -1  'True
  405.       BorderStyle     =   0  'None
  406.       BeginProperty Font 
  407.          Name            =   "Times New Roman"
  408.          Size            =   9
  409.          Charset         =   0
  410.          Weight          =   400
  411.          Underline       =   0   'False
  412.          Italic          =   0   'False
  413.          Strikethrough   =   0   'False
  414.       EndProperty
  415.       Height          =   975
  416.       Index           =   0
  417.       Left            =   2040
  418.       Picture         =   "HiRes.frx":013F
  419.       ScaleHeight     =   975
  420.       ScaleWidth      =   975
  421.       TabIndex        =   0
  422.       Top             =   3840
  423.       Width           =   975
  424.    End
  425.    Begin VB.Label Label1 
  426.       Alignment       =   1  'Right Justify
  427.       Caption         =   "Right justified"
  428.       BeginProperty Font 
  429.          Name            =   "Times New Roman"
  430.          Size            =   9
  431.          Charset         =   0
  432.          Weight          =   400
  433.          Underline       =   0   'False
  434.          Italic          =   0   'False
  435.          Strikethrough   =   0   'False
  436.       EndProperty
  437.       Height          =   255
  438.       Index           =   1
  439.       Left            =   1440
  440.       TabIndex        =   23
  441.       Top             =   3240
  442.       Width           =   1575
  443.    End
  444.    Begin VB.Image Image1 
  445.       Height          =   975
  446.       Index           =   1
  447.       Left            =   4200
  448.       Picture         =   "HiRes.frx":16C5
  449.       Stretch         =   -1  'True
  450.       Top             =   3840
  451.       Width           =   1575
  452.    End
  453.    Begin VB.Line Line1 
  454.       BorderWidth     =   3
  455.       Index           =   1
  456.       X1              =   4800
  457.       X2              =   5760
  458.       Y1              =   3720
  459.       Y2              =   3240
  460.    End
  461.    Begin VB.Shape Shape1 
  462.       Height          =   735
  463.       Index           =   5
  464.       Left            =   240
  465.       Shape           =   5  'Rounded Square
  466.       Top             =   3960
  467.       Width           =   1575
  468.    End
  469.    Begin VB.Shape Shape1 
  470.       Height          =   975
  471.       Index           =   4
  472.       Left            =   120
  473.       Shape           =   4  'Rounded Rectangle
  474.       Top             =   3840
  475.       Width           =   1815
  476.    End
  477.    Begin VB.Shape Shape1 
  478.       FillStyle       =   0  'Solid
  479.       Height          =   495
  480.       Index           =   3
  481.       Left            =   4920
  482.       Shape           =   3  'Circle
  483.       Top             =   2520
  484.       Width           =   735
  485.    End
  486.    Begin VB.Shape Shape1 
  487.       BorderWidth     =   3
  488.       Height          =   735
  489.       Index           =   2
  490.       Left            =   4800
  491.       Shape           =   2  'Oval
  492.       Top             =   2400
  493.       Width           =   975
  494.    End
  495.    Begin VB.Shape Shape1 
  496.       FillStyle       =   7  'Diagonal Cross
  497.       Height          =   1935
  498.       Index           =   1
  499.       Left            =   4920
  500.       Shape           =   1  'Square
  501.       Top             =   240
  502.       Width           =   735
  503.    End
  504.    Begin VB.Shape Shape1 
  505.       BorderStyle     =   3  'Dot
  506.       Height          =   2175
  507.       Index           =   0
  508.       Left            =   4800
  509.       Top             =   120
  510.       Width           =   975
  511.    End
  512.    Begin VB.Image Image1 
  513.       Height          =   975
  514.       Index           =   0
  515.       Left            =   3120
  516.       Picture         =   "HiRes.frx":2C4B
  517.       Top             =   3840
  518.       Width           =   975
  519.    End
  520.    Begin VB.Line Line1 
  521.       Index           =   0
  522.       X1              =   4800
  523.       X2              =   5760
  524.       Y1              =   3240
  525.       Y2              =   3720
  526.    End
  527.    Begin VB.Label Label1 
  528.       Caption         =   "Left justified"
  529.       BeginProperty Font 
  530.          Name            =   "Times New Roman"
  531.          Size            =   9
  532.          Charset         =   0
  533.          Weight          =   400
  534.          Underline       =   0   'False
  535.          Italic          =   0   'False
  536.          Strikethrough   =   0   'False
  537.       EndProperty
  538.       Height          =   255
  539.       Index           =   0
  540.       Left            =   1440
  541.       TabIndex        =   1
  542.       Top             =   3000
  543.       Width           =   1575
  544.    End
  545.    Begin VB.Menu mnuFile 
  546.       Caption         =   "&File"
  547.       Begin VB.Menu mnuFilePreview 
  548.          Caption         =   "Print Preview..."
  549.          Shortcut        =   ^P
  550.       End
  551.       Begin VB.Menu mnuFilePrintForm 
  552.          Caption         =   "&PrintForm"
  553.       End
  554.       Begin VB.Menu mnuFileHiResPrint 
  555.          Caption         =   "&HiResPrint"
  556.       End
  557.       Begin VB.Menu mnuFileLargePrint 
  558.          Caption         =   "HiResPrint &Large Scale"
  559.       End
  560.       Begin VB.Menu mnuFileSep1 
  561.          Caption         =   "-"
  562.       End
  563.       Begin VB.Menu mnuFileExit 
  564.          Caption         =   "E&xit"
  565.       End
  566.    End
  567. Attribute VB_Name = "frmHiRes"
  568. Attribute VB_GlobalNameSpace = False
  569. Attribute VB_Creatable = False
  570. Attribute VB_PredeclaredId = True
  571. Attribute VB_Exposed = False
  572. Option Explicit
  573. Private Sub Form_Load()
  574.     ' Make the form have a picture.
  575.     Picture = Image
  576.     ' Set default selections.
  577.     Combo1.ListIndex = 1
  578.     List1.Selected(1) = True
  579.     List1.Selected(3) = True
  580.     ' Give the form the same palette as the pictures.
  581.     Picture.hPal = Picture1(0).Picture.hPal
  582. End Sub
  583. ' ************************************************
  584. ' Unload the form.
  585. ' ************************************************
  586. Private Sub mnuFileExit_Click()
  587.     Unload Me
  588. End Sub
  589. ' ************************************************
  590. ' Print using the HiResPrint subroutine.
  591. ' ************************************************
  592. Private Sub mnuFileHiResPrint_Click()
  593.     MousePointer = vbHourglass
  594.     DoEvents
  595.     HiResPrint Me, Printer, hires_Normal
  596.     Printer.EndDoc
  597.     MousePointer = vbDefault
  598. End Sub
  599. ' ************************************************
  600. ' Print at large scale using HiResPrint.
  601. ' ************************************************
  602. Private Sub mnuFileLargePrint_Click()
  603.     MousePointer = vbHourglass
  604.     DoEvents
  605.     HiResPrint Me, Printer, hires_StretchToFit
  606.     Printer.EndDoc
  607.     MousePointer = vbDefault
  608. End Sub
  609. ' Display a print preview.
  610. Private Sub mnuFilePreview_Click()
  611.     frmHiResPrv.ShowPreview Me
  612. End Sub
  613. ' ************************************************
  614. ' Print using the PrintForm method.
  615. ' ************************************************
  616. Private Sub mnuFilePrintForm_Click()
  617.     PrintForm
  618. End Sub
  619.